Amiga Collections: Purity/Purity #22 (1994-01-19)(Diesel)(DE)[WB].zip/Purity #22 (1994-01-19)(Diesel)(DE)[WB].adf/MagicBlank/POINTS.h

Text File | 1994-01-17 | 632b | 36 lines

{$if not def MAGICBLANK_POINTS_H}

CONST
  MAGICBLANK_POINTS_H = 3;

PROCEDURE Points;
VAR
  dum : INTEGER;
  l : LONG;
BEGIN
  dum := 15; { 15 Punkte-Bildschirme, dann Tschüss... }
  sig1 := SetSignal(0,0) AND SBF_CF;
  WHILE sig1 = 0 DO
  BEGIN
    SetRast(rp,0);
    FOR i := 1 TO 300 DO
    BEGIN
      SetAPen(rp,Random(6)+1);
      l := WritePixel(rp,Random(sp^.Width),Random(sp^.Height));
      sig1 := SetSignal(0,0) AND SBF_CF;
    END;
    Delay(2);
    sig1 := SetSignal(0,0) AND SBF_CF;
    Dec(dum);
    IF dum <= 0 THEN
    BEGIN
      DisplayBeep(sp);
      SetRast(rp,0);
      Exit;
    END;
  END;
END;

{$endif}